Software 2000/Software 2000 Volume 1 (Disc 2 of 2).iso/demos/d008.dms/in.adf/RainbowWarrior.AMOS/RainbowWarrior.amosSourceCode

AMOS Source Code | 1991-02-11 | 17.8 KB | 570 lines

Cls 0
Auto View Off
'
Rem *
Rem *
Rem *    The Awesome, Incredible.. the bug-ridden.. the useless...
Rem *
Rem *             -= R A I N B O W  W A R R I O R !!!! =-
Rem *
Rem *                           Version 2
Rem *
Rem *            (Even the French couldn't sink this one..)
Rem *
Rem * Spadge (The little tinker) presents: COPPER DESIGNER!
Rem * This AMOS listing is TUPPERWARE (of course) and was first
Rem * featured on NEWSFLASH disk-magazine (#15)... watch out for Amos
Rem * programs every month.... by us, our readers and F.Lionet!
Rem *
Rem * Scruf-ee programming and sloppy idle routines rule ok...
Rem *
Rem * Lonely blondes (female.. ahem) with outrageous assests should
Rem * contact the willing and so often disapointed Spadge at...
Rem * Newsflash UK, Po Box 13, Ossett, W.Yorks WF5 OXA. Tel [phone]
Rem * By the way, ya can also get Newsflash from there too.. :-)
Rem *
Rem * Feel free to send criticisms, comments and any additional bits that
Rem * you may care to add... but do NOT remove anything from this file,
Rem * documentation or fiddle with my graphics to a large extent....
Rem * or else I'll be a bit pig-sick and won't release anything
Rem * else, not that you'ld be very worried about that of course...
Rem *
Rem * Ever look at the copper (Rainbow) command and think, yes, well,
Rem * erm - no thanks.. well! Now's the chance to REALLY use it!! Just
Rem * run this and marvel and the taste of Newcastle Brown Ale... 8^)
Rem *
Rem * I hope you don't expect me to fully comment this appalling program
Rem * I am NOT the neatest, most schematic programming person.. sorry...
Rem * Just enjoy the results because, it does actually work.. a bit..
Rem *
Break Off : Colour Back $0
On Error Goto TUTTUT : Rem Ah-haaa.. most errors banished to the dustbin!! :-)
Hide On
Limit Mouse 130,40 To 440,300 : TL=0 : AC=0
W1Y=40 : R=7 : G=7 : B=7 : CP=1 : MR=R : MG=G : MB=B : PB=0 : Dim BUFFER(300) : BL=0
Dim TEMP(300) : Dim T2(300) : Dim AF(300) : Dim PC(20,2) : For F=1 To 20 : Read PC(F,0) : Read PC(F,1) : Read PC(F,2) : Next F
Data 0,0,0,$F,$F,$F,$F,$0,$0,$0,$F,$0,0,0,$F,0,$F,$F,$F,$F,$0,$F,0,$F,$A,0,0,$D,8,0,$8,$F,0,0,$8,$0,$B,$6,0,$0,$C,$C
Data 0,$A,$F,0,$7,$C,$7,0,$F,$C,0,$E,$C,0,8,$6,$2,0,$D,5,1
Auto View Off
Screen Open 2,640,10,2,Hires : Curs Off : Cls 0 : Palette 0,$FFF : Screen Display 2,,120,,
Screen Open 0,320,256,16,LORES : Cls 0 : Curs Off : Palette 0,0,0,0 : Cls 0 : Flash Off
Screen Open 1,640,256,8,Hires : Cls 0 : Curs Off
Unpack 5 To 1 : Screen Display 1,,W1Y,,60 : Gosub IN : Screen To Back 1 : Screen Display 1,,W1Y,,60 : Gosub S2 : Screen To Front 1
Randomize Timer
Set Rainbow 0,0,290,"","",""
Rainbow 0,0,0,290
AC=1
Gosub GCOL : Change Mouse 2
Show On
View
Screen 0
Key Speed 25,2
II:
On Error Goto TUTTUT
Do
Gosub S2
   I$=Inkey$
   S=Scancode
   Clear Key
   Screen 0
   K=Mouse Key : If K>0 Then Y=Y Mouse : Gosub MBIT
If S=0 Then Loop
If S=76 and W1Y>0 Then W1Y=W1Y-32 : Screen Display 1,,W1Y,, : Wait Vbl
If S=77 and W1Y<280 Then W1Y=W1Y+32 : Screen Display 1,,W1Y,, : Wait Vbl
If Upper$(I$)="X" Then Key Speed 8,8 : Edit
If I$="?" Then Gosub S1 : Wait Key : Gosub S3 : Wait Key : Gosub S2
If I$="C" Then Change Mouse 3 : BC=IDX : Colour Back IDX : For F=0 To 280 : Rain(0,F)=IDX : Next F : Change Mouse 2 : View
If I$="c" Then Change Mouse 3 : BC=0 : Colour Back 0 : For F=0 To 280 : Rain(0,F)=0 : Next F : Change Mouse 2 : View
If I$="4" and R<15 Then Inc R : Gosub GCOL
If I$="1" and R>1 Then Dec R : Gosub GCOL
If I$="5" and G<15 Then Inc G : Gosub GCOL
If I$="2" and G>1 Then Dec G : Gosub GCOL
If I$="6" and B<15 Then Inc B : Gosub GCOL
If I$="3" and B>1 Then Dec B : Gosub GCOL
If I$="n" Then K=1 : Y=Y Mouse : Gosub MBIT : YUP=Y Mouse : Inc YUP : Y Mouse=YUP : Gosub DARK
If I$="N" Then K=1 : Y=Y Mouse : Gosub MBIT : YUP=Y Mouse : Dec YUP : Y Mouse=YUP : Gosub DARK
If Upper$(I$)="G" Then MR=R : MG=G : MB=B : S$="Colour Put in Memory" : Gosub DT : Wait 50 : Screen To Back 2
If Upper$(I$)="R" Then R=MR : G=MG : B=MB : S$="Colour Grabbed from Memory" : Gosub DT : Wait 50 : Screen To Back 2 : Gosub GCOL
If I$="-" Then Gosub DARK
If I$="+" Then Gosub BRIGHT
If Upper$(I$)="D" Then Gosub DARK
If Upper$(I$)="B" Then Gosub BRIGHT
If I$="*" Then Gosub RANDC
If I$="/" Then Gosub POC
If Upper$(I$)="M" Then Gosub MIRROR
If I$="k" Then Gosub CUT
If I$="K" Then Gosub CUT2
If Upper$(I$)="P" Then Gosub PASTE
If Upper$(I$)="F" Then Gosub FID
If Upper$(I$)="U" Then Gosub UNDO
If Upper$(I$)="Z" Then Gosub SAV
If Upper$(I$)="E" Then Gosub EX
If Upper$(I$)="H" Then Gosub SNATCH
If Upper$(I$)="S" Then Gosub SAVIT
If I$="l" Then Gosub LSCR
If I$="L" Then Gosub LBUF
If I$="I" Then Screen 0 : TL=0 : Cls 0 : Gosub GCOL : Goto II
If I$="i" Then Gosub LTEMP
If Upper$(I$)="A" and TL=1 Then AC=1 : Gosub AFFECT
Goto II
AFFECT:
Gosub S1 : Screen To Back 1 : Screen 0
For F=0 To 280 : AF(F)=Rain(0,F) : Next F
Set Rainbow 0,AC,290,"","",""
Rainbow 0,0,0,290
For F=0 To 280 : Rain(0,F)=AF(F) : Next F : View
Do
K$=Upper$(Inkey$)
Exit If K$="A"
If K$="[" and AC>0 Then Dec AC : Goto AFFECT
If K$="]" and AC<15 Then Inc AC : Goto AFFECT
Loop
Screen To Front 1 : Screen 0
Set Rainbow 0,0,290,"","",""
Rainbow 0,0,0,290
For F=0 To 280 : Rain(0,F)=AF(F) : Next F : View
AC=0
Return
GCOL:
IDX=(256*R)+(16*G)+B : Screen 1 : Palette ,,,,,,,IDX : Screen 0 : Return
MBIT:
If K=2 Then Goto SCRUBBIT
Y1=Y Screen(Y)
Rain(0,Y1+2)=IDX : View
Return
SCRUBBIT:
Y1=Y Screen(Y Mouse)
Rain(0,Y1+2)=BC : View
Return
DARK:
If R>0 Then Dec R
If G>0 Then Dec G
If B>0 Then Dec B
Gosub GCOL : Return
BRIGHT:
If R<14 Then Inc R
If G<14 Then Inc G
If B<14 Then Inc B
Gosub GCOL : Return
RANDC:
R=Rnd(15) : G=Rnd(15) : B=Rnd(15) : Gosub GCOL : Return
S1:
Screen Offset 1,,3 : Wait Vbl : Return
S2:
Screen Offset 1,,62 : Wait Vbl : Return
S3:
Screen Offset 1,,121 : Wait Vbl : Return
S4:
Screen Offset 1,,181 : Wait Vbl : Return
POC:
Inc CP
If CP=21 Then CP=1
R=PC(CP,0)
G=PC(CP,1)
B=PC(CP,2) : Gosub GCOL
Return
MIRROR:
S$="Select region to mirror..." : Gosub DT
GROWBOX
YA=GY1
YB=GY2
S$="Press T: Mirror on the top, B: Mirror on bottom or E: Exit" : Gosub DT
Do
   KK$=Upper$(Inkey$)
   Exit If KK$="T"
   Exit If KK$="B"
   Exit If KK$="E"
Loop
Screen To Back 2
If KK$="E" Then Return
If KK$<>"T" Then Goto SKIP
For F=2 To(GY2+1)-(GY1-1)
   If GY1-F<0 Then Goto MS
   Rain(0,GY1-F+3)=Rain(0,GY1+F)
   View
   MS:
Next F
Return
SKIP:
If KK$="A" Then Return
For F=0 To(GY2+1)-(GY1-1)
   If GY2+F+2>280 Then Goto MS2
   Rain(0,GY2+F+2)=Rain(0,GY2-F)
   View
   MS2:
Next F : Return
Procedure GROWBOX
   Screen 0 :
   Shared GX1,GX2,GY1,GY2
   Change Mouse 1
   Ink 1
   Gr Writing 4+2+1
   Repeat
      If Mouse Key=1
         GX1=X Screen(X Mouse) : GY1=Y Screen(Y Mouse) : GX2=GX1 : GY2=GY1
         While Mouse Key=1
            Box GX1,GY1 To GX2,GY2
            GX2=X Screen(X Mouse) : GY2=Y Screen(Y Mouse)
            Box GX1,GY1 To GX2,GY2
         Wend
         Box GX1,GY1 To GX2,GY2 : GRABBED=True
         If GX1>GX2 : T=GX1 : GX1=GX2 : GX2=T : End If
         If GY1>GY2 : T=GY1 : GY1=GY2 : GY2=T : End If
      End If
   Until GRABBED
   Change Mouse 2 : X Mouse=200 :
End Proc
DT:
Screen 2 : Cls : Ink 1 : Writing 1,2 : Centre S$ : Screen To Front 2 : Screen 0 : Return
CUT:
S$="Cut Now..." : Gosub DT
GROWBOX
YA=GY1
YB=GY2 : PB=1
S$="Colours now in paste buffer !" : Gosub DT
For F=2 To(GY2+1)-(GY1-1)
   BUFFER(F-1)=Rain(0,GY1+F)
Next F
BL=GY2-GY1 : Wait 50 : Screen To Back 2
Return
CUT2:
S$="Cut now..." : Gosub DT
GROWBOX
YA=GY1
YB=GY2 : PB=1
S$="Colours now in paste buffer !" : Gosub DT
For F=2 To(GY2+1)-(GY1-1)
   BUFFER(F-1)=Rain(0,GY1+F)
   Rain(0,GY1+F)=BC : View
Next F
BL=GY2-GY1 : Wait 50 : Screen To Back 2
Return
FID:
S$="Select region to fill.." : Gosub DT
GROWBOX
YA=GY1
YB=GY2
For F=GY1+2 To GY2+2
Rain(0,F)=IDX : View : Next F : Screen To Back 2
Return
PASTE:
If PB=0 Then S$="Nothing in buffer! Cut something first!!" : Gosub DT : Wait 75 : Screen To Back 2 : Return
Y1=Y Screen(Y Mouse)
For F=1 To BL
   If Y1-1+F+2>280 Then Goto PS
   Rain(0,Y1-1+F+2)=BUFFER(F) : View
   PS:
Next F
Return
UNDO:
S$="Really Refresh ? Y/N" : Gosub DT
Do
   K$=Upper$(Inkey$)
   Exit If K$="Y"
   Exit If K$="N"
Loop
Screen To Back 2
If K$="N" Then Return
For F=0 To 280 : Rain(0,F)=BUFFER(F) : Next F : View : Return
SAV:
For F=0 To 280 : BUFFER(F)=Rain(0,F) : Next F
S$="Colour contents saved! (U to refresh)" : Gosub DT : Wait 50 : Screen To Back 2
Return
IN: Screen Display 1,,132,, : Gosub S1 : Auto View On : View : Gosub GM : Gosub S3 : Gosub GM : Return
TUTTUT:
S$="There's been a cock-up, but I don't think it's anything to worry about!" : Gosub DT : Wait 150 : Screen To Back 2 : Resume II
EX:
S$="Select region to expand" : Gosub DT
GROWBOX
Change Mouse 3 : Screen To Back 2
ER=2 : Screen 0
For F=1 To(GY2-GY1)+4
   T2(F)=Rain(0,F+GY1+1)
Next F
TBL=(GY2-GY1)*ER
For F=1 To(TBL+4)/ER
   If GY1+(F*ER)-1>280 Then Goto EXS
   Rain(0,GY1+1+(F*ER))=T2(F) : View
   For H=1 To ER-1
   Rain(0,GY1+1+(F*ER)+H)=T2(F) : View : Next H
   EXS:
Next F
Change Mouse 2
Return
SNATCH:
Y=Y Screen(Y Mouse)
CL=Rain(0,Y+2)
R=Int(CL/256) : CL=CL-(R*256)
G=Int(CL/16) : CL=CL-(G*16)
B=CL : Gosub GCOL
Return
SAVIT:
Gosub S4
AGH:
Change Mouse 2
Do
   K$=Upper$(Inkey$)
   Exit If K$<>""
Loop
If K$="E" Then Gosub S2 : Return
If K$="0" Then Gosub SCRIN : Goto AGH
If K$<"0" Then Goto AGH
If Val(K$)>9 Then Goto AGH
K=Val(K$)
On K Gosub AMOS,SEKA,DEVPAC,BIN,DE1,DE2,HEX1,HEX2,BUFF,SCRIN
Goto AGH
AMOS:
Gosub SOB : Screen To Back 2
D$="*.asc" : T1$="Type name of the Amos" : T2$="block-file to be created" : Gosub OPFILE : If F$="" Then Return
Open Out 1,F$
Change Mouse 3
Print #1,"Rem"
Print #1,"Rem  * Created with RAINBOW WARRIOR - Amos Copper Generator *"
Print #1,"Rem  *  Yup, you can blame good ol' Spadge for this one...  *"
Print #1,"Rem"
L$=Str$(Y1-Y0) : L2$=Str$(Y1-Y0-1)
Print #1,"Set Rainbow 0,0,";L$;",";
Print #1,Chr$(34);Chr$(34); : Print #1,",";
Print #1,Chr$(34);Chr$(34); : Print #1,",";
Print #1,Chr$(34);Chr$(34)
Print #1,"Rainbow 0,0,";Y0;",";L$;" "
Print #1,"Colour Back";BC
Print #1,"Restore RDATA"
Print #1,"For C=0 To ";L2$;" : Read CVA : Rain(0,C)=CVA"
Print #1,"Next C : View"
Print #1,"RDATA:"
For F=1 To Val(L$)+3 Step 8
   Print #1,"Data ";Hex$(Rain(0,Y0+F-1));",";Hex$(Rain(0,Y0+F));",";
   Print #1,Hex$(Rain(0,Y0+F+1));",";Hex$(Rain(0,Y0+F+2));",";
   Print #1,Hex$(Rain(0,Y0+F+3));",";Hex$(Rain(0,Y0+F+4));",";
   Print #1,Hex$(Rain(0,Y0+F+5));",";Hex$(Rain(0,Y0+F+6))
Next F
Print #1,"Rem"
Print #1,"Rem  * Alter the values in the RAINBOW and SET RAINBOW *"
Print #1,"Rem  * to position and control the rainbows. See the   *"
Print #1,"Rem  * manual to check on Y positioning, Length and    *"
Print #1,"Rem  * which colour it is to effect.. Have fun!        *"
Print #1,""
Change Mouse 2
Close 1 : Return
SEKA:
Gosub SOB : Screen To Back 2
D$="*.s" : T1$="Type name of the Seka" : T2$="block-file to be created" : Gosub OPFILE : If F$="" Then Return
Open Out 1,F$
Change Mouse 3
L$=Str$(Y1-Y0) : L2$=Str$(Y1-Y0-1)
Print #1,";"
Print #1,";  * Created with RAINBOW WARRIOR - Amos Copper Generator"
Print #1,";  *  Yup, you can blame good ol' Spadge for this one... "
Print #1,";  * Holds the data for";L$;" lines of Copper-bar info !!"
Print #1,";"
Print #1,"RDATA:"
For F=1 To Val(L$)+3 Step 8
   Print #1,"        Dc.w        ";Hex$(Rain(0,Y0+F-1));",";Hex$(Rain(0,Y0+F));",";
   Print #1,Hex$(Rain(0,Y0+F+1));",";Hex$(Rain(0,Y0+F+2));",";
   Print #1,Hex$(Rain(0,Y0+F+3));",";Hex$(Rain(0,Y0+F+4));",";
   Print #1,Hex$(Rain(0,Y0+F+5));",";Hex$(Rain(0,Y0+F+6))
Next F
Print #1,";"
Print #1,"; * Read Newsflash Disk-Magazine!! *"
Print #1,""
Change Mouse 2
Close 1 : Return
DEVPAC:
Gosub SOB : Screen To Back 2
D$="*.asm" : T1$="Type name of the Devpac" : T2$="block-file to be created" : Gosub OPFILE : If F$="" Then Return
Open Out 1,F$
Change Mouse 3
L$=Str$(Y1-Y0) : L2$=Str$(Y1-Y0-1)
Print #1,";"
Print #1,";  * Created with RAINBOW WARRIOR - Amos Copper Generator"
Print #1,";  *  Yup, you can blame good ol' Spadge for this one... "
Print #1,";  * Holds the data for";L$;" lines of Copper-bar info !!"
Print #1,";"
Print #1,"RDATA"
For F=1 To Val(L$)+3 Step 8
   Print #1,"        Dc.w        ";Hex$(Rain(0,Y0+F-1));",";Hex$(Rain(0,Y0+F));",";
   Print #1,Hex$(Rain(0,Y0+F+1));",";Hex$(Rain(0,Y0+F+2));",";
   Print #1,Hex$(Rain(0,Y0+F+3));",";Hex$(Rain(0,Y0+F+4));",";
   Print #1,Hex$(Rain(0,Y0+F+5));",";Hex$(Rain(0,Y0+F+6))
Next F
Print #1,";"
Print #1,"; * Read Newsflash Disk-Magazine!! *"
Print #1,""
Change Mouse 2
Close 1 : Return
BIN:
Reserve As Work 10,1000 : Fill Start(10) To Start(10)+800,0
Gosub SOB : Screen To Back 2
D$="*.bin" : T1$="Type name of the Binary" : T2$="block-file to be created" : Gosub OPFILE : If F$="" Then Return
Change Mouse 3
L$=Str$(Y1-Y0) : L2$=Str$(Y1-Y0-1)
XZ=Start(10)
For F=1 To Val(L$)+3
   Doke XZ,Rain(0,Y0+F)
   Inc XZ : Inc XZ
Next F
Change Mouse 3
Bsave F$,Start(10) To Start(10)+(Y1-Y0)
Change Mouse 2 : Return
DE1:
Gosub SOB : Screen To Back 2
D$="*.dec" : T1$="Type name of the Decimal" : T2$="block-file to be created" : Gosub OPFILE : If F$="" Then Return
Open Out 1,F$
Change Mouse 3
L$=Str$(Y1-Y0) : L2$=Str$(Y1-Y0-1)
Print #1,";"
Print #1,";  * Created with RAINBOW WARRIOR - Amos Copper Generator"
Print #1,";  *  Yup, you can blame good ol' Spadge for this one... "
Print #1,";  * Holds the data for";L$;" lines of Copper-bar info !!"
Print #1,";"
For F=1 To Val(L$)+3 Step 8
   Print #1,(Rain(0,Y0+F-1));",";(Rain(0,Y0+F));",";
   Print #1,(Rain(0,Y0+F+1));",";(Rain(0,Y0+F+2));",";
   Print #1,(Rain(0,Y0+F+3));",";(Rain(0,Y0+F+4));",";
   Print #1,(Rain(0,Y0+F+5));",";(Rain(0,Y0+F+6))
Next F
Print #1,";"
Print #1,"; * Read Newsflash Disk-Magazine!! *"
Print #1,""
Change Mouse 2
Close 1 : Return
DE2:
Gosub SOB : Screen To Back 2
D$="*.dec" : T1$="Type name of the Decimal" : T2$="block-file to be created" : Gosub OPFILE : If F$="" Then Return
Open Out 1,F$
Change Mouse 3
L$=Str$(Y1-Y0) : L2$=Str$(Y1-Y0-1)
Print #1,";"
Print #1,";  * Created with RAINBOW WARRIOR - Amos Copper Generator"
Print #1,";  *  Yup, you can blame good ol' Spadge for this one... "
Print #1,";  * Holds the data for";L$;" lines of Copper-bar info !!"
Print #1,";"
For F=1 To Val(L$)+3
   Print #1,(Rain(0,Y0+F-1))
Next F
Print #1,";"
Print #1,"; * Read Newsflash Disk-Magazine!! *"
Print #1,""
HEX1:
Gosub SOB : Screen To Back 2
D$="*.hex" : T1$="Type name of the Hex" : T2$="block-file to be created" : Gosub OPFILE : If F$="" Then Return
Open Out 1,F$
Change Mouse 3
L$=Str$(Y1-Y0) : L2$=Str$(Y1-Y0-1)
Print #1,";"
Print #1,";  * Created with RAINBOW WARRIOR - Amos Copper Generator"
Print #1,";  *  Yup, you can blame good ol' Spadge for this one... "
Print #1,";  * Holds the data for";L$;" lines of Copper-bar info !!"
Print #1,";"
For F=1 To Val(L$)+3 Step 8
   Print #1,Hex$(Rain(0,Y0+F-1));",";Hex$(Rain(0,Y0+F));",";
   Print #1,Hex$(Rain(0,Y0+F+1));",";Hex$(Rain(0,Y0+F+2));",";
   Print #1,Hex$(Rain(0,Y0+F+3));",";Hex$(Rain(0,Y0+F+4));",";
   Print #1,Hex$(Rain(0,Y0+F+5));",";Hex$(Rain(0,Y0+F+6))
Next F
Print #1,";"
Print #1,"; * Read Newsflash Disk-Magazine!! *"
Print #1,""
Change Mouse 2
Close 1 : Return
HEX2:
Gosub SOB : Screen To Back 2
D$="*.hex" : T1$="Type name of the Hex" : T2$="block-file to be created" : Gosub OPFILE : If F$="" Then Return
Open Out 1,F$
Change Mouse 3
L$=Str$(Y1-Y0) : L2$=Str$(Y1-Y0-1)
Print #1,";"
Print #1,";  * Created with RAINBOW WARRIOR - Amos Copper Generator"
Print #1,";  *  Yup, you can blame good ol' Spadge for this one... "
Print #1,";  * Holds the data for";L$;" lines of Copper-bar info !!"
Print #1,";"
For F=1 To Val(L$)+3
   Print #1,Hex$(Rain(0,Y0+F-1))
Next F
Print #1,";"
Print #1,"; * Read Newsflash Disk-Magazine!! *"
Print #1,""
Change Mouse 2
Close 1 : Return
BUFF:
If PB=0 Then S$="Oi! There isn't a buffer!! Create one first!!" : Gosub DT : Wait 75 : Screen To Back 2 : Return
D$="*.buf" : T1$="Type name of Buffer" : T2$="block-file to be created" : Gosub OPFILE : If F$="" Then Return
Open Out 1,F$
Change Mouse 3
L$=Str$(Y1-Y0) : L2$=Str$(Y1-Y0-1)
Print #1,"RW.BUF"
Print #1,BL
For F=1 To BL
   Print #1,BUFFER(F)
Next F
Print #1,"EOF"
Change Mouse 2
Close 1 : Return
LTEMP:
D$="" : T1$="Type name of picture" : T2$="to be loaded.." : Gosub OPFILE : If F$="" Then Return
On Error Goto NIFF
Load Iff F$,3 : TL=1 : Screen To Front 1 : Screen 0 : Cls 0 : On Error Goto TUTTUT
H=Screen Height(3) : W=Screen Width(3) : Screen Copy 3 To 0 : Get Palette 3 : Screen Close 3 : Screen 0
Return
NIFF:
S$="Not an IFF file!!" : Gosub DT : Wait 50 : Screen To Back 2 : Screen 0 : TL=0 : Resume II
SCRIN:
D$="*.rws" : T1$="Type name of Screen" : T2$="block-file to be created" : Gosub OPFILE : If F$="" Then Return
Open Out 1,F$
Change Mouse 3
L$=Str$(Y1-Y0) : L2$=Str$(Y1-Y0-1)
Print #1,"RW.SCN"
Print #1,BC
For F=0 To 279
   Print #1,Rain(0,F)
Next F
Print #1,"EOF"
Change Mouse 2
Close 1 : Return
LBUF:
D$="*.buf" : T1$="Type name of Buffer" : T2$="block-file to be loaded.." : Gosub OPFILE : If F$="" Then Return
Screen 0
Open In 1,F$
Change Mouse 3
Input #1,A$ : If A$<>"RW.BUF" Then S$="This is not a Rainbow Warrior Buffer file!!" : Gosub DT : Close 1 : Wait 50 : Screen To Back 2 : Return
Input #1,BL : PB=1 : For F=1 To BL
   Input #1,BUFFER(F)
Next F
Change Mouse 2
Close 1 : Return
LSCR:
D$="*.rws" : T1$="Type name of Screen" : T2$="block-file to be loaded.." : Gosub OPFILE : If F$="" Then Return
Screen 0
Open In 1,F$
Change Mouse 3
Input #1,A$ : If A$<>"RW.SCN" Then S$="This is not a Rainbow Warrior Screen file!!" : Gosub DT : Close 1 : Wait 50 : Screen To Back 2 : Change Mouse 2 : Return
Input #1,BC : Colour Back BC
For F=0 To 279
   Input #1,CVV : Rain(0,F)=CVV
Next F : View
Change Mouse 2
Close 1 : Return
OPFILE:
F$=Fsel$(D$,"",T1$,T2$)
Screen 0
Return
SOB:
S$="Save details of Entire screen or a clip ? S/C" : Gosub DT
PP:
Do
   KK$=Upper$(Inkey$)
   Exit If KK$<>""
Loop
If KK$="S" Then Y0=0 : Y1=280 : Return
If KK$="C" Then S$="Grab Clip Now !" : Gosub DT : GROWBOX : Y0=GY1-1 : Y1=GY2+1 : Goto YUBBA
Goto PP
YUBBA:
If Y0<1 Then Y0=0
If Y1<Y0 Then Y1=Y0+1
Return
GM:
Do
   Exit If Mouse Click=1
Loop
Return